HSP - HSP stick

stick命令の利用

何のキーボードを押されたかチェックするHSPのstick命令です。stickはキー入力の監視をしないといけないので、repeat-loop命令で無限ループさせます。無限ループ中はウェイトしないとだめ。

キーが押されたら、stick命令のp1で指定した変数にキーコードが返ります。ESCキーは128なので、ここではプログラムを終了させてます。

if命令で何らかのキー押しが行われたと判定したら、*pushラベルへサブルーチンのジャンプをするようになっています。具体的にどの矢印方向キーがプッシュされたかを確認して、押されたことを確認したら、*hyojiラベルで押した方向を表示させてます。

方向表示用の文字列はあらかじめ文字列型の配列変数に入れてあります。

// HSP 3.0a で確認
// Author : hsp-.page.tl

screen 0,200,200

; 配列変数
hoko = "←", "→", "↑", "↓"

font "ＭＳＰゴシック",200,16

repeat
stick key

;ESCキー押し
if key=128 : dialog "終わります。",0,"終了" : end

;何かしらのキー押し
if key!=0 : gosub *push

wait 10
loop

*push
if key&1 : value=0 : goto *hyoji
if key&4 : value=1 : goto *hyoji
if key&2 : value=2 : goto *hyoji
if key&8 : value=3 : goto *hyoji

return

*hyoji
;描画停止
redraw 0

;白色で塗りつぶし
color 255,255,255
boxf

;矢印表示
color 255,0,0
pos 0,0
mes hoko(value)

;描画反映
redraw 1

return